﻿Module Initial

    Public Sub SaveIniValue(ByVal Setting As String, ByVal Value As Object, Optional ByVal Value2 As Object = Nothing)
        Try
            Dim Sett As Konsole.Settings = [Enum].Parse(Konsole.Settings.Language.GetType, Setting)
            Select Case Sett
                Case Konsole.Settings.Adapter
                    DataSettings.Adapter = CInt(Value)
                Case Konsole.Settings.ScreenWidth
                    DataSettings.BildschirmBreite = CInt(Value)
                Case Konsole.Settings.ScreenHeight
                    DataSettings.BildschirmHoehe = CInt(Value)
                Case Konsole.Settings.Resourcepath
                    DataSettings.Resourcenpfad = CStr(Value) + ":" + CStr(Value2)
                Case Konsole.Settings.Screen_ratio
                    DataSettings.Verhaeltnis = CSng(Value)
                Case Konsole.Settings.Stratch_factor
                    DataSettings.Streckfaktor = CSng(Value)
                Case Konsole.Settings.Game_Speed
                    DataSettings.SpielGeschwindigkeit = CInt(Value)
                Case Konsole.Settings.Scroll_sensitivity
                    DataSettings.ScrollEmpfindlichkeit = CSng(Value)
                Case Konsole.Settings.Invert_Mouse
                    DataSettings.MausUmkehren = CInt(Value)
                Case Konsole.Settings.Speech_listening
                    DataSettings.SprachZuhoeren = CBool(Value)
                Case Konsole.Settings.Speech_sensitivity
                    DataSettings.SprachSensitivitaet = CSng(Value)
                Case Konsole.Settings.Text_Scroll_speed
                    DataSettings.Textfliessgeschwindigkeit = CSng(Value)
                Case Konsole.Settings.Autosave
                    DataSettings.Autospeichern = CBool(Value)
                Case Konsole.Settings.Last_Game
                    DataSettings.LetztesSpiel = CStr(Value)
                Case Konsole.Settings.Battleanimations
                    If IsNumeric(Value) Then
                        DataSettings.KampfAnimationen = CInt(Value)
                    Else
                        DataSettings.KampfAnimationen = [Enum].Parse(KampfanimationsTypen.Alle.GetType, Value)
                    End If
                Case Konsole.Settings.Captureanimations
                    DataSettings.BesetzungsAnimation = CBool(Value)
                Case Konsole.Settings.LoadingTime
                    DataSettings.DurchschnittlicheLadeZeit = CLng(Value)
                Case Konsole.Settings.Language
                    If IsNumeric(Value) Then
                        DataSettings.Sprache = CInt(Value)
                    Else
                        DataSettings.Sprache = [Enum].Parse(Sprachen.Deutsch.GetType, Value)
                    End If
                Case Konsole.Settings.Autor
                    DataSettings.Autor = CStr(Value)
                Case Konsole.Settings.Music_Sound
                    DataSettings.MusikSound = CBool(Value)
                Case Konsole.Settings.Gamemode
                    If IsNumeric(Value) Then
                        DataSettings.CommanderWarsGameModus = CInt(Value)
                    Else
                        DataSettings.CommanderWarsGameModus = [Enum].Parse(CommanderWarsGameModi.AdvanceWars.GetType, Value)
                    End If
                Case Konsole.Settings.Windowed
                    DataSettings.Fenstermodus = CBool(Value)
                Case Konsole.Settings.Fullscreen_Width
                    DataSettings.StandardVollbildschirmBreite = CInt(Value)
                Case Konsole.Settings.Fullscreen_Height
                    DataSettings.StandardVollbildschirmHoehe = CInt(Value)
                Case Konsole.Settings.Terrain_style
                    If IsNumeric(Value) Then
                        DataSettings.TerrainStyle = CInt(Value)
                    Else
                        DataSettings.TerrainStyle = [Enum].Parse(TerrainStyle.AdvanceWars.GetType, Value)
                    End If
                Case Konsole.Settings.Unit_List1
                    DataSettings.EinheitenListe1 = CStr(Value)
                Case Konsole.Settings.Unit_List2
                    DataSettings.EinheitenListe2 = CStr(Value)
                Case Konsole.Settings.Unit_List3
                    DataSettings.EinheitenListe3 = CStr(Value)
                Case Konsole.Settings.Record
                    DataSettings.Aufzeichnen = CBool(Value)
                Case Konsole.Settings.InfoMenu
                    DataSettings.InfoMenue = CBool(Value)
                Case Konsole.Settings.AutoResizeWindow
                    DataSettings.AutoresizeWindow = CBool(Value)
                Case Konsole.Settings.WindowsKonsolenausgabe
                    DataSettings.WindowsKonsolenausgabe = CBool(Value)
                Case Konsole.Settings.Taskbarmode
                    If IsNumeric(Value) Then
                        DataSettings.TaskAnzeigenModus = CInt(Value)
                    Else
                        DataSettings.TaskAnzeigenModus = [Enum].Parse(TaskleistenAnzeige.Taskleiste.GetType, Value)
                    End If
                Case Konsole.Settings.Background_music
                    DataSettings.Hintergrundmusik = CBool(Value)
                Case Konsole.Settings.Script_Writer_Size
                    DataSettings.Groesse = New Size(CInt(Value), CInt(Value2))
                Case Konsole.Settings.ShowInvalidCode
                    DataSettings.ShowInvalidCode = CBool(Value)
                Case Konsole.Settings.Quality
                    DataSettings.TexturQuali = CStr(Value)
                Case Konsole.Settings._3D
                    DataSettings.draw3D = CBool(Value)
                Case Konsole.Settings.Paint_everything
                    DataSettings.TotalEinfaerben = CBool(Value)
                Case Konsole.Settings.Mouselighting
                    DataSettings.Lichtmaus = CBool(Value)
                Case Konsole.Settings.Animation_Speed_3D
                    DataSettings.AnimGeschw3D = CSng(Value)
                Case Konsole.Settings.Fog_3D
                    DataSettings.Kriegsnebel3D = CBool(Value)
                Case Konsole.Settings._2D3D
                    DataSettings._2D_3D_Malen = CBool(Value)
                Case Konsole.Settings.Key_Scrollen
                    If IsNumeric(Value) Then
                        DataSettings.Key_Scrollen = CInt(Value)
                    Else
                        DataSettings.Key_Scrollen = [Enum].Parse(System.Windows.Forms.Keys.A.GetType, Value)
                    End If
                Case Konsole.Settings.Key_Up
                    If IsNumeric(Value) Then
                        DataSettings.Oben = CInt(Value)
                    Else
                        DataSettings.Oben = [Enum].Parse(System.Windows.Forms.Keys.A.GetType, Value)
                    End If
                Case Konsole.Settings.Key_Down
                    If IsNumeric(Value) Then
                        DataSettings.Unten = CInt(Value)
                    Else
                        DataSettings.Unten = [Enum].Parse(System.Windows.Forms.Keys.A.GetType, Value)
                    End If
                Case Konsole.Settings.Key_Right
                    If IsNumeric(Value) Then
                        DataSettings.Rechts = CInt(Value)
                    Else
                        DataSettings.Rechts = [Enum].Parse(System.Windows.Forms.Keys.A.GetType, Value)
                    End If
                Case Konsole.Settings.Key_Left
                    If IsNumeric(Value) Then
                        DataSettings.Links = CInt(Value)
                    Else
                        DataSettings.Links = [Enum].Parse(System.Windows.Forms.Keys.A.GetType, Value)
                    End If
                Case Konsole.Settings.Key_Confirm
                    If IsNumeric(Value) Then
                        DataSettings.Bestaetigen = CInt(Value)
                    Else
                        DataSettings.Bestaetigen = [Enum].Parse(System.Windows.Forms.Keys.A.GetType, Value)
                    End If
                Case Konsole.Settings.Key_Cancel
                    If IsNumeric(Value) Then
                        DataSettings.Abrechen = CInt(Value)
                    Else
                        DataSettings.Abrechen = [Enum].Parse(System.Windows.Forms.Keys.A.GetType, Value)
                    End If
                Case Konsole.Settings.Key_Next
                    If IsNumeric(Value) Then
                        DataSettings.Oben = CInt(Value)
                    Else
                        DataSettings.NaechsteEinheit = [Enum].Parse(System.Windows.Forms.Keys.A.GetType, Value)
                    End If
                Case Konsole.Settings.Key_Select
                    If IsNumeric(Value) Then
                        DataSettings.SelectTaste = CInt(Value)
                    Else
                        DataSettings.SelectTaste = [Enum].Parse(System.Windows.Forms.Keys.A.GetType, Value)
                    End If
                Case Konsole.Settings.Key_Quicksave1
                    If IsNumeric(Value) Then
                        DataSettings.Quicksave1 = CInt(Value)
                    Else
                        DataSettings.Quicksave1 = [Enum].Parse(System.Windows.Forms.Keys.A.GetType, Value)
                    End If
                Case Konsole.Settings.Key_Quicksave2
                    If IsNumeric(Value) Then
                        DataSettings.Quicksave2 = CInt(Value)
                    Else
                        DataSettings.Quicksave2 = [Enum].Parse(System.Windows.Forms.Keys.A.GetType, Value)
                    End If
                Case Konsole.Settings.Key_Quickload1
                    If IsNumeric(Value) Then
                        DataSettings.Quickload1 = CInt(Value)
                    Else
                        DataSettings.Quickload1 = [Enum].Parse(System.Windows.Forms.Keys.A.GetType, Value)
                    End If
                Case Konsole.Settings.Key_Quickload2
                    If IsNumeric(Value) Then
                        DataSettings.Quickload2 = CInt(Value)
                    Else
                        DataSettings.Quickload2 = [Enum].Parse(System.Windows.Forms.Keys.A.GetType, Value)
                    End If
                Case Konsole.Settings.Key_Chat
                    If IsNumeric(Value) Then
                        DataSettings.Chat = CInt(Value)
                    Else
                        DataSettings.Chat = [Enum].Parse(System.Windows.Forms.Keys.A.GetType, Value)
                    End If
                Case Konsole.Settings.Key_TeamChat
                    If IsNumeric(Value) Then
                        DataSettings.TChat = CInt(Value)
                    Else
                        DataSettings.TChat = [Enum].Parse(System.Windows.Forms.Keys.A.GetType, Value)
                    End If
                Case Konsole.Settings.Key_change_Battlefield
                    If IsNumeric(Value) Then
                        DataSettings.Schlachtwechsel = CInt(Value)
                    Else
                        DataSettings.Schlachtwechsel = [Enum].Parse(System.Windows.Forms.Keys.A.GetType, Value)
                    End If
                Case Konsole.Settings.Key_Console
                    If IsNumeric(Value) Then
                        DataSettings.AktivKonsole = CInt(Value)
                    Else
                        DataSettings.AktivKonsole = [Enum].Parse(System.Windows.Forms.Keys.A.GetType, Value)
                    End If
                Case Konsole.Settings.Key_Screenshot
                    If IsNumeric(Value) Then
                        DataSettings.Screenshot = CInt(Value)
                    Else
                        DataSettings.Screenshot = [Enum].Parse(System.Windows.Forms.Keys.A.GetType, Value)
                    End If
                Case Konsole.Settings.Key_Backward
                    If IsNumeric(Value) Then
                        DataSettings.Zurueck = CInt(Value)
                    Else
                        DataSettings.Zurueck = [Enum].Parse(System.Windows.Forms.Keys.A.GetType, Value)
                    End If
                Case Konsole.Settings.Key_Forward
                    If IsNumeric(Value) Then
                        DataSettings.Vor = CInt(Value)
                    Else
                        DataSettings.Vor = [Enum].Parse(System.Windows.Forms.Keys.A.GetType, Value)
                    End If
                Case Konsole.Settings.Use_Windows_Console
                    DataSettings.WindowsKonsolenausgabe = CBool(Value)
                Case Konsole.Settings.Show_Orders_during_Game
                    DataSettings.KonsolenSpielBefehle = CBool(Value)
                Case Konsole.Settings.StepsBackward
                    DataSettings.MaxAutoSpeichern = CInt(Value)
                Case Konsole.Settings.Use_Windows_Console
                    DataSettings.WindowsKonsolenausgabe = CBool(Value)
                Case Konsole.Settings.Use_Windows_Console
                    DataSettings.CursorImSpielBleiben = CBool(Value)
                Case Konsole.Settings.AISpeech
                    DataSettings.KITexte = CBool(Value)
                Case Konsole.Settings.SpeechRecoq
                    DataSettings.SprachZuhoeren = CBool(Value)
                Case Konsole.Settings.CursorOnMap
                    DataSettings.CursorImSpielBleiben = CBool(Value)
                Case Konsole.Settings.Auto_End_Turn
                    DataSettings.AutoEndTurn = CBool(Value)
                Case Konsole.Settings.Show_Tooltips
                    DataSettings.ToolTips = CBool(Value)
                Case Konsole.Settings.Hide_Cursor
                    DataSettings.HideCursor = CBool(Value)
                Case Else
                    Write("Unknown Setting:" + Setting + ". -> Report this to the CoW Team.")
            End Select
        Catch
            Konsole.Write("Couldn't load Ini-Value: " + Setting + " ->Please change this Value or Reset the Ini.")
        End Try
    End Sub
    Public Sub PrintIniValue(ByVal Setting As Konsole.Settings)
        Select Case Setting
            Case Konsole.Settings._2D3D
                Konsole.Write(Setting.ToString + " = " + DataSettings._2D_3D_Malen.ToString)
            Case Konsole.Settings._3D
                Konsole.Write(Setting.ToString + " = " + DataSettings.draw3D.ToString)
            Case Konsole.Settings.Adapter
                Konsole.Write(Setting.ToString + " = " + DataSettings.Adapter.ToString)
            Case Konsole.Settings.AISpeech
                Konsole.Write(Setting.ToString + " = " + DataSettings.KITexte.ToString)
            Case Konsole.Settings.Animation_Speed_3D
                Konsole.Write(Setting.ToString + " = " + DataSettings.AnimGeschw3D.ToString)
            Case Konsole.Settings.Autor
                Konsole.Write(Setting.ToString + " = " + DataSettings.Autor.ToString)
            Case Konsole.Settings.AutoResizeWindow
                Konsole.Write(Setting.ToString + " = " + DataSettings.AutoresizeWindow.ToString)
            Case Konsole.Settings.Autosave
                Konsole.Write(Setting.ToString + " = " + DataSettings.Autospeichern.ToString)
            Case Konsole.Settings.Background_music
                Konsole.Write(Setting.ToString + " = " + DataSettings.Hintergrundmusik.ToString)
            Case Konsole.Settings.Battleanimations
                Konsole.Write(Setting.ToString + " = " + DataSettings.KampfAnimationen.ToString)
            Case Konsole.Settings.Captureanimations
                Konsole.Write(Setting.ToString + " = " + DataSettings.BesetzungsAnimation.ToString)
            Case Konsole.Settings.CursorOnMap
                Konsole.Write(Setting.ToString + " = " + DataSettings.CursorImSpielBleiben.ToString)
            Case Konsole.Settings.Fog_3D
                Konsole.Write(Setting.ToString + " = " + DataSettings.Kriegsnebel3D.ToString)
            Case Konsole.Settings.Fullscreen_Height
                Konsole.Write(Setting.ToString + " = " + DataSettings.StandardVollbildschirmHoehe.ToString)
            Case Konsole.Settings.Fullscreen_Width
                Konsole.Write(Setting.ToString + " = " + DataSettings.StandardVollbildschirmBreite.ToString)
            Case Konsole.Settings.Game_Speed
                Konsole.Write(Setting.ToString + " = " + DataSettings.SpielGeschwindigkeit.ToString)
            Case Konsole.Settings.Gamemode
                Konsole.Write(Setting.ToString + " = " + DataSettings.CommanderWarsGameModus.ToString)
            Case Konsole.Settings.InfoMenu
                Konsole.Write(Setting.ToString + " = " + DataSettings.InfoMenue.ToString)
            Case Konsole.Settings.Invert_Mouse
                Konsole.Write(Setting.ToString + " = " + DataSettings.MausUmkehren.ToString)
            Case Konsole.Settings.Key_Cancel
                Konsole.Write(Setting.ToString + " = " + DataSettings.Abrechen.ToString)
            Case Konsole.Settings.Key_change_Battlefield
                Konsole.Write(Setting.ToString + " = " + DataSettings.Schlachtwechsel.ToString)
            Case Konsole.Settings.Key_Chat
                Konsole.Write(Setting.ToString + " = " + DataSettings.Chat.ToString)
            Case Konsole.Settings.Key_Confirm
                Konsole.Write(Setting.ToString + " = " + DataSettings.Bestaetigen.ToString)
            Case Konsole.Settings.Key_Console
                Konsole.Write(Setting.ToString + " = " + DataSettings.AktivKonsole.ToString)
            Case Konsole.Settings.Key_Down
                Konsole.Write(Setting.ToString + " = " + DataSettings.Unten.ToString)
            Case Konsole.Settings.Key_Left
                Konsole.Write(Setting.ToString + " = " + DataSettings.Links.ToString)
            Case Konsole.Settings.Key_Next
                Konsole.Write(Setting.ToString + " = " + DataSettings.NaechsteEinheit.ToString)
            Case Konsole.Settings.Key_Quickload1
                Konsole.Write(Setting.ToString + " = " + DataSettings.Quickload1.ToString)
            Case Konsole.Settings.Key_Quickload2
                Konsole.Write(Setting.ToString + " = " + DataSettings.Quickload2.ToString)
            Case Konsole.Settings.Key_Quicksave1
                Konsole.Write(Setting.ToString + " = " + DataSettings.Quicksave1.ToString)
            Case Konsole.Settings.Key_Quicksave2
                Konsole.Write(Setting.ToString + " = " + DataSettings.Quicksave2.ToString)
            Case Konsole.Settings.Key_Scrollen
                Konsole.Write(Setting.ToString + " = " + DataSettings.Key_Scrollen.ToString)
            Case Konsole.Settings.Key_Right
                Konsole.Write(Setting.ToString + " = " + DataSettings.Rechts.ToString)
            Case Konsole.Settings.Key_Screenshot
                Konsole.Write(Setting.ToString + " = " + DataSettings.Screenshot.ToString)
            Case Konsole.Settings.Key_Select
                Konsole.Write(Setting.ToString + " = " + DataSettings.SelectTaste.ToString)
            Case Konsole.Settings.Key_TeamChat
                Konsole.Write(Setting.ToString + " = " + DataSettings.TChat.ToString)
            Case Konsole.Settings.Key_Up
                Konsole.Write(Setting.ToString + " = " + DataSettings.Oben.ToString)
            Case Konsole.Settings.Language
                Konsole.Write(Setting.ToString + " = " + DataSettings.Sprache.ToString)
            Case Konsole.Settings.Last_Game
                Konsole.Write(Setting.ToString + " = " + DataSettings.LetztesSpiel.ToString)
            Case Konsole.Settings.LoadingTime
                Konsole.Write(Setting.ToString + " = " + DataSettings.DurchschnittlicheLadeZeit.ToString)
            Case Konsole.Settings.Mouselighting
                Konsole.Write(Setting.ToString + " = " + DataSettings.Lichtmaus.ToString)
            Case Konsole.Settings.Music_Sound
                Konsole.Write(Setting.ToString + " = " + DataSettings.Hintergrundmusik.ToString)
            Case Konsole.Settings.Paint_everything
                Konsole.Write(Setting.ToString + " = " + DataSettings.TotalEinfaerben.ToString)
            Case Konsole.Settings.Quality
                Konsole.Write(Setting.ToString + " = " + DataSettings.TexturQuali.ToString)
            Case Konsole.Settings.Key_Forward
                Konsole.Write(Setting.ToString + " = " + DataSettings.Vor.ToString)
            Case Konsole.Settings.Key_Backward
                Konsole.Write(Setting.ToString + " = " + DataSettings.Zurueck.ToString)
            Case Konsole.Settings.Record
                Konsole.Write(Setting.ToString + " = " + DataSettings.Aufzeichnen.ToString)
            Case Konsole.Settings.Resourcepath
                Konsole.Write(Setting.ToString + " = " + DataSettings.Resourcenpfad.ToString)
            Case Konsole.Settings.Screen_ratio
                Konsole.Write(Setting.ToString + " = " + DataSettings.Verhaeltnis.ToString)
            Case Konsole.Settings.ScreenHeight
                Konsole.Write(Setting.ToString + " = " + DataSettings.BildschirmHoehe.ToString)
            Case Konsole.Settings.ScreenWidth
                Konsole.Write(Setting.ToString + " = " + DataSettings.BildschirmBreite.ToString)
            Case Konsole.Settings.Script_Writer_Size
                Konsole.Write(Setting.ToString + " = " + DataSettings.Groesse.ToString)
            Case Konsole.Settings.Scroll_sensitivity
                Konsole.Write(Setting.ToString + " = " + DataSettings.ScrollEmpfindlichkeit.ToString)
            Case Konsole.Settings.Show_Orders_during_Game
                Konsole.Write(Setting.ToString + " = " + DataSettings.KonsolenSpielBefehle.ToString)
            Case Konsole.Settings.Speech_listening
                Konsole.Write(Setting.ToString + " = " + DataSettings.SprachZuhoeren.ToString)
            Case Konsole.Settings.Speech_sensitivity
                Konsole.Write(Setting.ToString + " = " + DataSettings.SprachSensitivitaet.ToString)
            Case Konsole.Settings.SpeechRecoq
                Konsole.Write(Setting.ToString + " = " + DataSettings.SprachZuhoeren.ToString)
            Case Konsole.Settings.StepsBackward
                Konsole.Write(Setting.ToString + " = " + DataSettings.MaxAutoSpeichern.ToString)
            Case Konsole.Settings.Stratch_factor
                Konsole.Write(Setting.ToString + " = " + DataSettings.Streckfaktor.ToString)
            Case Konsole.Settings.Taskbarmode
                Konsole.Write(Setting.ToString + " = " + DataSettings.TaskAnzeigenModus.ToString)
            Case Konsole.Settings.Terrain_style
                Konsole.Write(Setting.ToString + " = " + DataSettings.TerrainStyle.ToString)
            Case Konsole.Settings.Text_Scroll_speed
                Konsole.Write(Setting.ToString + " = " + DataSettings.Textfliessgeschwindigkeit.ToString)
            Case Konsole.Settings.Unit_List1
                Konsole.Write(Setting.ToString + " = " + DataSettings.EinheitenListe1.ToString)
            Case Konsole.Settings.Unit_List2
                Konsole.Write(Setting.ToString + " = " + DataSettings.EinheitenListe2.ToString)
            Case Konsole.Settings.Unit_List3
                Konsole.Write(Setting.ToString + " = " + DataSettings.EinheitenListe3.ToString)
            Case Konsole.Settings.Use_Windows_Console
                Konsole.Write(Setting.ToString + " = " + DataSettings.WindowsKonsolenausgabe.ToString)
            Case Konsole.Settings.Windowed
                Konsole.Write(Setting.ToString + " = " + DataSettings.Fenstermodus.ToString)
            Case Konsole.Settings.Auto_End_Turn
                Konsole.Write(Setting.ToString + " = " + DataSettings.AutoEndTurn.ToString)
            Case Konsole.Settings.Show_Tooltips
                Konsole.Write(Setting.ToString + " = " + DataSettings.ToolTips.ToString)
            Case Konsole.Settings.Hide_Cursor
                Konsole.Write(Setting.ToString + " = " + DataSettings.HideCursor.ToString)
            Case Konsole.Settings.ShowInvalidCode
                Konsole.Write(Setting.ToString + " = " + DataSettings.ShowInvalidCode.ToString)
            Case Else
                Write("Unknown Setting:" + Setting + ". -> Report this to the CoW Team.")
        End Select
    End Sub
    Public Function GetIniValue(ByVal Setting As Konsole.Settings) As Object
        Select Case Setting
            Case Konsole.Settings._2D3D
                Return DataSettings._2D_3D_Malen
            Case Konsole.Settings._3D
                Return DataSettings.draw3D
            Case Konsole.Settings.Adapter
                Return DataSettings.Adapter
            Case Konsole.Settings.AISpeech
                Return DataSettings.KITexte
            Case Konsole.Settings.Animation_Speed_3D
                Return DataSettings.AnimGeschw3D
            Case Konsole.Settings.Autor
                Return DataSettings.Autor
            Case Konsole.Settings.AutoResizeWindow
                Return DataSettings.AutoresizeWindow
            Case Konsole.Settings.Autosave
                Return DataSettings.Autospeichern
            Case Konsole.Settings.Background_music
                Return DataSettings.Hintergrundmusik
            Case Konsole.Settings.Battleanimations
                Return DataSettings.KampfAnimationen
            Case Konsole.Settings.Captureanimations
                Return DataSettings.BesetzungsAnimation
            Case Konsole.Settings.CursorOnMap
                Return DataSettings.CursorImSpielBleiben
            Case Konsole.Settings.Fog_3D
                Return DataSettings.Kriegsnebel3D
            Case Konsole.Settings.Fullscreen_Height
                Return DataSettings.StandardVollbildschirmHoehe
            Case Konsole.Settings.Fullscreen_Width
                Return DataSettings.StandardVollbildschirmBreite
            Case Konsole.Settings.Game_Speed
                Return DataSettings.SpielGeschwindigkeit
            Case Konsole.Settings.Gamemode
                Return DataSettings.CommanderWarsGameModus
            Case Konsole.Settings.InfoMenu
                Return DataSettings.InfoMenue
            Case Konsole.Settings.Invert_Mouse
                Return DataSettings.MausUmkehren
            Case Konsole.Settings.Key_Cancel
                Return DataSettings.Abrechen
            Case Konsole.Settings.Key_change_Battlefield
                Return DataSettings.Schlachtwechsel
            Case Konsole.Settings.Key_Chat
                Return DataSettings.Chat
            Case Konsole.Settings.Key_Confirm
                Return DataSettings.Bestaetigen
            Case Konsole.Settings.Key_Console
                Return DataSettings.AktivKonsole
            Case Konsole.Settings.Key_Down
                Return DataSettings.Unten
            Case Konsole.Settings.Key_Left
                Return DataSettings.Links
            Case Konsole.Settings.Key_Next
                Return DataSettings.NaechsteEinheit
            Case Konsole.Settings.Key_Quickload1
                Return DataSettings.Quickload1
            Case Konsole.Settings.Key_Quickload2
                Return DataSettings.Quickload2
            Case Konsole.Settings.Key_Quicksave1
                Return DataSettings.Quicksave1
            Case Konsole.Settings.Key_Quicksave2
                Return DataSettings.Quicksave2
            Case Konsole.Settings.Key_Scrollen
                Return DataSettings.Key_Scrollen
            Case Konsole.Settings.Key_Right
                Return DataSettings.Rechts
            Case Konsole.Settings.Key_Screenshot
                Return DataSettings.Screenshot
            Case Konsole.Settings.Key_Select
                Return DataSettings.SelectTaste
            Case Konsole.Settings.Key_TeamChat
                Return DataSettings.TChat
            Case Konsole.Settings.Key_Up
                Return DataSettings.Oben
            Case Konsole.Settings.Language
                Return DataSettings.Sprache
            Case Konsole.Settings.Last_Game
                Return DataSettings.LetztesSpiel
            Case Konsole.Settings.LoadingTime
                Return DataSettings.DurchschnittlicheLadeZeit
            Case Konsole.Settings.Mouselighting
                Return DataSettings.Lichtmaus
            Case Konsole.Settings.Music_Sound
                Return DataSettings.Hintergrundmusik
            Case Konsole.Settings.Paint_everything
                Return DataSettings.TotalEinfaerben
            Case Konsole.Settings.Quality
                Return DataSettings.TexturQuali
            Case Konsole.Settings.Key_Forward
                Return DataSettings.Vor
            Case Konsole.Settings.Key_Backward
                Return DataSettings.Zurueck
            Case Konsole.Settings.Record
                Return DataSettings.Aufzeichnen
            Case Konsole.Settings.Resourcepath
                Return DataSettings.Resourcenpfad
            Case Konsole.Settings.Screen_ratio
                Return DataSettings.Verhaeltnis
            Case Konsole.Settings.ScreenHeight
                Return DataSettings.BildschirmHoehe
            Case Konsole.Settings.ScreenWidth
                Return DataSettings.BildschirmBreite
            Case Konsole.Settings.Script_Writer_Size
                Return DataSettings.Groesse
            Case Konsole.Settings.Scroll_sensitivity
                Return DataSettings.ScrollEmpfindlichkeit
            Case Konsole.Settings.Show_Orders_during_Game
                Return DataSettings.KonsolenSpielBefehle
            Case Konsole.Settings.Speech_listening
                Return DataSettings.SprachZuhoeren
            Case Konsole.Settings.Speech_sensitivity
                Return DataSettings.SprachSensitivitaet
            Case Konsole.Settings.SpeechRecoq
                Return DataSettings.SprachZuhoeren
            Case Konsole.Settings.StepsBackward
                Return DataSettings.MaxAutoSpeichern
            Case Konsole.Settings.Stratch_factor
                Return DataSettings.Streckfaktor
            Case Konsole.Settings.Taskbarmode
                Return DataSettings.TaskAnzeigenModus
            Case Konsole.Settings.Terrain_style
                Return DataSettings.TerrainStyle
            Case Konsole.Settings.Text_Scroll_speed
                Return DataSettings.Textfliessgeschwindigkeit
            Case Konsole.Settings.Unit_List1
                Return DataSettings.EinheitenListe1
            Case Konsole.Settings.Unit_List2
                Return DataSettings.EinheitenListe2
            Case Konsole.Settings.Unit_List3
                Return DataSettings.EinheitenListe3
            Case Konsole.Settings.Use_Windows_Console
                Return DataSettings.WindowsKonsolenausgabe
            Case Konsole.Settings.Windowed
                Return DataSettings.Fenstermodus
            Case Konsole.Settings.Auto_End_Turn
                Return DataSettings.AutoEndTurn
            Case Konsole.Settings.Show_Tooltips
                Return DataSettings.ToolTips
            Case Konsole.Settings.Hide_Cursor
                Return DataSettings.HideCursor
            Case Konsole.Settings.ShowInvalidCode
                Return DataSettings.ShowInvalidCode
            Case Else
                Konsole.Write("Unknown Setting:" + Setting.ToString + ". -> Report this to the CoW Team.")
                Return Nothing
        End Select
    End Function
End Module
